Introduction

Examining women’s income is pivotal for achieving Gender Equity, driving Economic Development, promoting Family Well-being, and securing the prosperity of Future Generations. Delving into women’s income yields invaluable insights into their economic engagement. Elevated income levels among women catalyze overall economic advancement by bolstering household finances, stimulating consumer expenditure, and bolstering tax revenues (Canada Women and Gender Equality 2021). Additionally, women’s income plays a pivotal role in bolstering family welfare (Brodie and Bakker 2007). A comprehensive understanding of women’s earning potential informs the formulation of policies and initiatives geared towards fortifying families’ economic stability and holistic welfare (Statistics Canada 2018). Moreover, women’s income levels bear far-reaching consequences across generations. Increased incomes for women can substantially enhance the educational opportunities, healthcare access, and future earning potential of their offspring, thereby disrupting the cycle of poverty and inequity. Hence, acknowledging and honoring women’s contributions in the workforce is imperative for nurturing diversity and fostering inclusion (“Facts and Figures: Economic Empowerment” 2023). Examining women’s income facilitates the creation of environments where every individual, irrespective of gender, is afforded equal prospects for success.

In this project, our primary objective is to scrutinize various income brackets categorized by age and gender in Canada, spanning different provinces. We will accomplish this by leveraging the dataset graciously provided by Statistics Canada (2021).

All the coding will be shred in github: https://github.com/joyliujoyliu

Data Visualization

After cleaning the data, the dataset is shown as Table 1. there are 18 income groups: Under $5,000 (including loss), $5,000 to $9,999, $10,000 to $14,999, $15,000 to $19,999, $20,000 to $24,999, $25,000 to $29,999, $30,000 to $34,999, $35,000 to $39,999, $40,000 to $44,999, $45,000 to $49,999, $50,000 to $54,999, $55,000 to $59,999, $60,000 to $69,999, $70,000 to $79,999, $80,000 to $89,999, $90,000 to $99,999, $100,000 to $149,999, and $150,000 and over. Also there are 10 age groups, some of them are overlapped and the income distribution among different age groups is shown as Fig 1.

set.seed(10)
ft_dt<- mydata[sample(1:nrow(mydata), 6, replace=FALSE),]
ft_dt$count2020<- color_tile("white", "orange")(ft_dt$count2020)

ft_dt$incomeGroups=as.numeric(ft_dt$incomeGroups)

ft_dt$incomeGroups<- ifelse(
  ft_dt$incomeGroups<10,
  cell_spec(ft_dt$incomeGroups, color = "pink", bold = T),
  cell_spec(ft_dt$incomeGroups, color = "blue", italic = T)
)

ft_dt$gender <- ifelse(
  ft_dt$gender =="Men+",
  cell_spec(ft_dt$gender, color = "red", bold = T),
  cell_spec(ft_dt$gender, color = "green", italic = T)
)

ft_dt=ft_dt[,-6]

kbl(ft_dt, escape = F) %>%
  kable_paper("hover", full_width = F) %>%
  column_spec(5, width = "3cm")
province agegroup gender incomegroups count2020 incomeGroups
21222 Barrie (CMA), Ont. 65 to 74 years Men+ $100,000 to $149,999 560 17
47947 High River (CA), Alta. 25 to 64 years Women+ $45,000 to $49,999 255 10
15595 Saint-Georges (CA), Que. 15 to 24 years Men+ $80,000 to $89,999 10 15
18837 Sorel-Tracy (CA), Que. 45 to 54 years Women+ $35,000 to $39,999 165 8
29723 Midland (CA), Ont. 25 to 54 years Men+ $30,000 to $34,999 280 7
39275 Brandon (CA), Man. 25 to 34 years Women+ $5,000 to $9,999 90 2
ggplot(data=mydata, aes(x= incomeGroups , y=count2020 , fill=gender )) +
  geom_bar(stat="identity", color="black", position=position_dodge())+ facet_wrap(agegroup ~ ., ncol = 5) +
  theme_minimal()+ scale_fill_manual(values = c("#00AFBB", "#FC4E07")) + 
  ylab("Count")+ ggtitle("Income Distribution in 2020 per age group")
Fig 1: Income Distribution in 2020 per age group

Fig 1: Income Distribution in 2020 per age group

Based on the data presented in Fig 1, it is evident that the primary income demographic falls within the age range of 25 to 64. Individuals aged 15 to 24 are predominantly students, hence their income is typically below 30k. Conversely, those over the age of 65 are either retired or hold senior positions within a company, resulting in two distinct peaks in their income distribution: one between 20k to 25k, and another surpassing 150k.

In this project, our primary focus is on the age bracket spanning from 25 to 64, as this demographic primarily consists of individuals who are actively engaged in the workforce. Consequently, analyzing income payments within this age range provides a more equitable and representative assessment of financial trends. Within this specific age group, we observe a higher percentage of women compared to men in the lower and middle income brackets, typically ranging from 0 to 70k. Conversely, in the higher income brackets, we note a lower percentage of women compared to men. This trend is particularly pronounced in income groups under 5k, where the number of women significantly surpasses that of men, and in income brackets between 100k to 150k, where the count of women is notably lower than that of men.

To effectively illustrate the percentage of females within specific income brackets across various Canadian provinces, we will utilize the mapcan package to import spatial data. Subsequently, we will merge this data with our existing income survey data for comprehensive analysis.

Figure 2 depicts the distribution of the Canadian population by province as of 2020. Notably, Ontario and Quebec emerge as the provinces with the highest population counts.

pr_geographic %>%
  ggplot(aes(x = long, y = lat, group = group, fill = population)) +
  geom_polygon() +
  coord_fixed() +
  theme_mapcan() +
  scale_fill_viridis_c(name = "Population") +
  ggtitle("Canadian Population by Province in 2020")
Fig 2: Canadian Population by Province in 2020

Fig 2: Canadian Population by Province in 2020

names(pr_geographic )[names(pr_geographic ) == 'pr_english'] <- 'province'

Figures 3 through 7 display spatial distribution of the percentages of women among different provinces within specific income brackets: under $5,000, $30,000 to $34,999, $60,000 to $69,999, $90,000 to $99,999, $100,000 to $149,999, and over $150,000, respectively, where the \(woman percentage = woman count in each income group and province /total count in each income group and province\)

 p1= pr_countwork1 %>%
    ggplot(aes(x = long, y = lat, group = group, fill = femalepercent, 
    text = paste0("Province: ",province))) +
    geom_polygon() +
    coord_fixed() +
    theme_mapcan() +
    scale_fill_viridis_c(name = "Womam percentage", option = "C") +
    ggtitle("Womam percentage with income Under $5,000 (including loss) by Province")
ggplotly(p1)

Fig 3: Womam percentage with income Under $5,000 (including loss) by Province

Fig 4: Womam percentage with income $30,000 to $34,999 by Province

Fig 5: Womam percentage with income $60,000 to $69,999 by Province

Fig 6: Womam percentage with income $90,000 to $99,999 by Province

Fig 7: Womam percentage with income $100,000 to $149,999 by Province

Fig 8: Womam percentage with income $150,000 and over by Province

Based on the data presented in Figures 3 and 4, it is evident that Alberta exhibits the highest percentage of women within the low-income bracket ranging from 0 to 30k, while Quebec shows the lowest percentage in the same income range.

In the middle-income group (60k to 100k), from Figures 5 and 6, we observe that the ranges of woman percentage are the narrowest. Specifically, New Brunswick boasts the highest woman percentage within the income bracket of 60k to 70k, whereas Alberta showcases the highest woman percentage in the income bracket of 90k to 100k. Conversely, Manitoba exhibits the lowest woman percentage in the income group of 60k to 70k, and British Columbia displays the lowest woman percentage in the income group of 90k to 100k.

In the high-income groups exceeding 100k, as depicted in Figures 7 and 8, we note that the ranges of woman percentage are the widest, spanning from 0.3 to 0.7. Alberta and Newfoundland emerge as the provinces with the highest woman percentage in the income bracket exceeding 100k. Conversely, Manitoba and British Columbia demonstrate the lowest woman percentage in this income range.

As an international immigrant, I’ve dedicated the past six years to studying and working in the Atlantic region including New Brunswick (NB), Newfoundland and Labrador (NL), Nova Scotia (NS) and Prince Edward Island (PEI). Given this experience, I’m keen to explore how the percentage of women varies across different income levels in the Atlantic Provinces. To shed light on this, I’ve plotted Figure 9.

In Figure 9, the income categories are represented as follows: Income Group 1 denotes income under $5,000, Income Group 4 represents income ranging from $30,000 to $34,999, Income Group 6 indicates income between $60,000 to $69,999, Income Group 16 signifies income from $90,000 to $99,999, Income Group 17 represents income within the range of $100,000 to $149,999, and Income Group 18 denotes income exceeding $150,000.

Fig 9: Woman percentages with different income levels across the Atlantic Provinces.

Among these four provinces, PEI exhibits the lowest women percentage in Income Groups 17 and 18, while NL boasts the highest women percentage in these income categories. NL also holds the highest women percentage in Income Group 1.

In Income Group 4, all four provinces showcase a similar women percentage, hovering around 0.55. However, there’s a notable discrepancy in Income Group 18, where PEI registers approximately 0.3, contrasting with the other provinces where the percentages exceed 0.7.

Income Groups 6 and 16 demonstrate a similar spatial pattern and range for women percentage, fluctuating between 0.4 to 0.5. NS emerges with the lowest percentage in these income brackets.

In summary, the percentage range in the first two Income Groups (ranging from 0 to 35k) falls between 0.5 to 0.6, indicating that women have a higher chance of earning low income compared to men, on average. Notably, PEI demonstrates the lowest women percentage in these low-income groups, while NL boasts the highest.

In the subsequent two Income Groups (ranging from 60k to 100k), the percentage range narrows to 0.4 to 0.5, suggesting that women have a lower chance of attaining mid-level income compared to men, on average. NS records the lowest women percentage in these mid-income groups, whereas NB exhibits the highest.

In the last two Income Groups (exceeding 100k), the percentage range widens from 0.3 to 0.8. PEI displays the lowest women percentage in these high-income groups, where the percentage of 0.3 indicates a lower likelihood for women to achieve high income compared to men, on average. Conversely, NL boasts the highest women percentage in these high-income groups, with a percentage of 0.8 signifying a greater likelihood for women to attain high income compared to men, on average. Note that, except PEI, all the other provinces’ women percentage is greater than 0.6.

Reference

Brodie, Janine, and Isabella Bakker. 2007. “Canada’s Social Policy Regime and Women: An Assessment of the Last Decade.” https://publications.gc.ca/site/archivee-archived.html?url=https://publications.gc.ca/collections/collection_2007/swc-cfc/SW21-156-2007E.pdf.
Canada Women and Gender Equality. 2021. “Economic Participation and Prosperity.” https://women-gender-equality.canada.ca/en/gender-results-framework/economic-participation-prosperity.html.
“Facts and Figures: Economic Empowerment.” 2023. UN Women – Headquarters. https://www.unwomen.org/en/what-we-do/economic-empowerment/facts-and-figures.
Statistics Canada. 2018. “The Economic Well-Being of Women in Canada.” https://www150.statcan.gc.ca/n1/pub/89-503-x/2015001/article/54930-eng.htm.
———. 2021. “Total Income Groups by Age and Gender: Canada, Provinces and Territories, Census Metropolitan Areas and Census Agglomerations with Parts - Open Government Portal.” https://ouvert.canada.ca/data/dataset/e7283705-e474-48cd-a91c-5c110d4cebbd.